www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/diaryuser.asp

    <!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: diaryuser.asp
' Version:3.0
' Date: 2005-8-26
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim ClassID
response.buffer=true
ClassID=Checkstr(Trim(Request("ClassID")))
if ClassID="" or not isnumeric(ClassID) then
  	errmsg=errmsg+"<br>"+"<li>参数错误。"
	founderr=true
else
ClassID=Clng(ClassID)
end if
if ClassID=1 then
stats="日记写手"
else
stats="文章写手"
end if

call nav()
if not founduser then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if founderr then
	call Mslove_error()
else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder2>
  <tr>
    <td width="48" height="31" align="right"><img src="Skins/Default/diary/x_line2.gif" width="1" height="30"></td>
    <td width="97" align="center"><a href="diaryindex.asp"><img src="Skins/Default/diary/dh_sy.gif" width="78" height="21" border="0"></a></td>
    <td width="11"><img src="Skins/Default/diary/x_line2.gif" width="1" height="30"></td>
    <td width="83"><a href="userdiary.asp"><img src="Skins/Default/diary/dh_mydaily.gif" width="76" height="21" border="0"></a></td>
    <td width="10"><img src="Skins/Default/diary/x_line2.gif" width="1" height="30"></td>
    <td width="89"><a href="userdiary.asp?action=newdiary"><img src="Skins/Default/diary/dh_fb.gif" width="81" height="21" border="0"></a></td>
    <td width="11"><img src="Skins/Default/diary/x_line2.gif" width="1" height="30"></td>
    <td width="84"><a href="diarylist.asp?action=hot"><img src="Skins/Default/diary/dh_hot.gif" width="74" height="21" border="0"></a></td>
    <td width="10"><img src="Skins/Default/diary/x_line2.gif" width="1" height="30"></td>
    <td width="87"><a href="diarylist.asp?action=new"><img src="Skins/Default/diary/dh_new.gif" width="76" height="21" border="0"></a></td>
    <td width="10"><img src="Skins/Default/diary/x_line2.gif" width="1" height="30"></td>
    <td width="88"><a href="diarylist.asp?action=best"><img src="Skins/Default/diary/dh_best.gif" width="75" height="21" border="0"></a></td>
    <td width="103">&nbsp;</td>
  </tr>
</table>
<%
call tumppages()'翻页处理
strFileName="diaryuser.asp?ClassID="&ClassID&""
call main()
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub main()%>
<table width="100%" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr align="center"> 
    <th width="21%" height="27"><%=stats%></th>
    <th width="7%">性别</th>
    <th width="16%">用户头衔</th>
    <th width="10%">VIP会员</th>
    <th width="25%">日记数/时间</th>
    <th width="11%">短信</th>
    <th width="10%">加为好友</th>
  </tr>
  <%dim postname,du
  set rs=server.createobject("adodb.recordset")
    sql="select d.addtime,d.Username,d.Article,u.UserSex,u.Userclass,u.UserVip from Ms_Writer d inner join Ms_user u on d.Username=u.Username where d.ClassID="&ClassID&" order by d.Aid desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
du=0
do while not rs.eof and page_count<Cint(MaxPerPage)
du=du+1
postname=rs("Username")
%>
  <tr align="center"> 
    <td width="21%" height="28" align="center"  class=tablebody2><a href=dispuser.asp?username=<%=postname%>><%=postname%></a><%if rs("Uservip")>1 then
    response.write "&nbsp;<img src=Skins/Default/vip.gif width=15 height=10 border=0>"
    end if
    %></td>
    <td width="7%" align="center"  class=tablebody1>
<%if rs("Usersex")=1 then
	response.Write("酷哥")
	else
	response.Write("靓女")
	end if%>
    </td>
    <td width="16%" align="center"  class=tablebody2><%=rs("Userclass")%></td>
    <td align="center"  class=tablebody1><%if rs("Uservip")>1 then
    response.write "<font color=red><b>VIP会员</b></font>"
    else
    response.write "<b>普通会员</b>"
    end if
    %></td>
    <td width="25%" align="center"  class=tablebody1><%=rs("Article")&"&nbsp;<font color=red>|</font>&nbsp;"&rs("addtime")%></td>
    <td width="11%" align="center"  class=tablebody1><a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(postname)%>',500,400)">发送</a></td>
    <td align="center"  class=tablebody2><a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(postname)%>" target=_blank>加为好友</a> 
</td>
  </tr>
  <%page_count=page_count+1
  rs.movenext
  loop
  else
  response.write("<tr align=""center""><td height=""30"" colspan=""7"" align=""center""  class=tablebody1>还没有日记，请添加日记！</td></tr>")
  end if
  rs.close
  %>
  <tr align="center"> 
    <td height="32" colspan="7" align="left"  class=tablebody2> <%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
  </tr>
</table>
<%
end sub
%>
</body>
</html>